<script>on mouseUplock screengo prevunlock screen with visual wipe rightend mouseUpon mouseEnterShowABalloon "Click here to move backward through this stack " ¬& "one card at a time."end mouseEnteron mouseLeaveRemoveABalloonend mouseLeave</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>450</left>
<top>309</top>
<right>488</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUplock screengo nextunlock screen with visual wipe leftend mouseUpon mouseEnterShowABalloon "Click here to move forward through this stack " ¬& "one card at a time."end mouseEnteron mouseLeaveRemoveABalloonend mouseLeave</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>12</left>
<top>63</top>
<right>500</right>
<bottom>162</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Info</name>
<script>on mouseUpdoDisplayend mouseUpon mouseEnterPut "This field contains information about the topic listed on "¬& "this card. See the script of this field "¬& "for an example of how to use the variation code and "¬& "the alternativeRect (for controlling balloon removal)."¬into theMessageput calcTip() into locationput the Rect of the target into alternateRectsubtract 18 from item 3 of alternateRect -- shorten rect to not include scroll barput Balloons("Show",theMessage,location,2,alternateRect) ¬into helpResultrepeat until "-853" is not in helpResultput Balloons("Show",theMessage,location, 5, alternateRect) ¬into helpResultend repeatend mouseEnterfunction calcTipput bottomRight of me into tipsubtract 10 from item 1 of tipsubtract 10 from item 2 of tipreturn tipend calcTip</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>26</left>
<top>210</top>
<right>488</right>
<bottom>299</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>helpMessage</name>
<script>on mouseEnterPut "This field, which is named 'helpMessage' is "¬& "used to display variations on the syntax of Balloons() "¬& "and to see its return values. See the script "¬& "for an example of using the variation code and "¬& "the alternativeRect (for controlling balloon removal)."¬into theMessageput calcTip() into locationput the Rect of the target into alternateRectput Balloons("Show",theMessage,location,5,alternateRect) ¬into helpResultrepeat until "-853" is not in helpResultput Balloons("Show",theMessage,location, 5, alternateRect) ¬into helpResultend repeatend mouseEnterfunction calcTipput (the right of me - the left of me)/2 into item 1 of tipput the top of me + 10 into item 2 of tipreturn tipend calcTip-- because we passed an alternativeRect to Balloons()-- we don't need to remove the balloons.</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>28</left>
<top>309</top>
<right>68</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Back</name>
<script>on mouseUplock screengo cd "title"unlock screen with visual wipe rightend mouseUpon mouseEnterShowABalloon "Click here to return to the title card and the " ¬& "Table of Contents."end mouseEnteron mouseLeaveRemoveABalloonend mouseLeave</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>470</left>
<top>18</top>
<right>501</right>
<bottom>45</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>On/Off</name>
<script>on mouseDownglobal isSixif the short name of this cd = "Error Messages/Return Values"then exit mouseDownif isSix then errorMsgif Balloons("isOn") thenget Balloons("Off")set the hilite of me to falseelseget Balloons("On")set the hilite of me to truemouseEnterend ifend mouseDownon mouseEnterShowAString 1513,,2end mouseEnteron mouseLeaveRemoveABalloonend mouseLeave-- ShowAString handler is located in the script of this background</script>
</part>
<name>Balloons</name>
<script>on openCardglobal isSixif the short name of this cd = "Optional Parameters" or ¬the short name of this cd = "Create Strings" or ¬the short name of this cd = "Create Styled Text" or ¬the short name of this cd = "Create PICTs" or ¬the short name of this cd = "Create String Lists"then hide fld "helpMessage"else show fld "helpMessage"if not isSixthen set the hilite of bg btn "on/off" to balloons("isOn")end openCardon closeCardset the scroll of fld "info" to 0put empty into fld "helpMessage"end closeCard-- The following handlers are duplicated here for the-- convenience of the user. They are also in the-- Stack script where they can be called from anywhere.on ShowASTRLIst STRResourceID, index, theTip, versionif theTip is empty then put calcTip() into tipput STRResourceID && "," && index into resourceRecordput Balloons("ShowSTRList", resourceRecord, tip, version) ¬into helpResultput helpResult into fld "helpMessage"repeat until "-853" is not in helpResultput Balloons("ShowSTRList", resourceRecord, tip, version) ¬into helpResultput helpResult into fld "helpMessage"end repeatend ShowASTRListon ShowAString STRResourceID, theTip, versionif theTip is empty then put calcTip() into tipput Balloons("ShowSTR", STRResourceID, tip, version) ¬into helpResultput helpResult into fld "helpMessage"repeat until "-853" is not in helpResultput Balloons("ShowSTR", STRResourceID, tip, version) ¬into helpResultput helpResult into fld "helpMessage"end repeatend ShowAStringon ShowAStyle StyledTextID, theTip, versionif theTip is empty then put calcTip() into tipput Balloons("ShowStyle", StyledTextID, theTip, version) ¬into helpResultput helpResult into fld "helpMessage"repeat until "-853" is not in helpResultput Balloons("ShowStyle", StyledTextID, theTip, version) ¬into helpResultput helpResult into fld "helpMessage"end repeatend ShowAStyleon doDisplayend doDisplayon arrowKey whichif which = "right" then send mouseUp to bg btn "next"else if which = "left" then send mouseUp to bg btn "prev"else pass arrowKeyend arrowKey</script>
